<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>59</cardCount>
<cardID>4487</cardID>
<listID>11150</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®------------------------------------------------------System Handlers:-----------------------------on openStackhide menuBarhide titleBarcolorizeHCopenPictureresetSystemPaletteloadPalettemarsSndloadTxtend openStack---------------------------------Utility Handlers---------------------------on resetSystemPaletteset cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black"thenclose window "black"end ifend resetSystemPaletteon closeStacknoPaintWhitespinCursornoPaintWhitepalette "runMenu", "0,417"noPaintWhiteif there is a window "marMenu"then close window "marMenu"end closeStackon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHC--------------------------Navigational Handlers---------------------------on loadPalettenoPaintWhitepalette "marMenu", "0,417" --opens navigational paletteif there is a window "runMenu" then ¬close window "runMenu"end loadPaletteon prepWinplay "mouseClick"picture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon goSolarplay "mouseClick"lock screengo to stack "HOME"unlock screenend goSolaron goBackplay "mouseClick"lock Screengo to card "Main Menu"unlock Screenend goBackon goEventplay "mouseClick"lock screengo to cd "MAIN MENU"unlock screenend goEvent-------------------------OPTIONS HANDLERS---------------------------------on goOptionsglobal gCreditsnoPaintWhiteset the visible of window "options" to not the visible of window "options"end goOptionson loadTxtglobal marker, printFieldput "PLANETS:MARS:MARS.TXT" into markerput "MARS" into printFieldend loadTxt---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstall---------------------------EXTRA HANDLERS----------------------------------on marsSndglobal switchif switch > 0 thenexit marsSndend ifQTMovie OpenMovie,Plain,"PLANETS:AUDIO:MARS211KHz Movie", "1005,1005",¬nocontroller,dontPaintWhite,closeOnFinishset the visible of window "MARS211KHz Movie" to falseend marsSnd</script>
